home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / languags / ada / adaed10a.lzh / Ada / Examples / Dine / vtspec.ada < prev    next >
Encoding:
Text File  |  1992-03-03  |  595 b   |  22 lines
  1.  
  2. with TEXT_IO, MY_INT_IO; use  TEXT_IO, MY_INT_IO;
  3. package VT100 is
  4.    use ASCII;
  5. ----------------------------------------------------------
  6. -- Procedures for drawing pictures of the solution on VDU.
  7. -- ClearScreen and SetCursorAt are device-specific
  8. ----------------------------------------------------------
  9.  
  10.     SCREEN_DEPTH    : constant INTEGER    := 24;
  11.     SCREEN_WIDTH    : constant INTEGER    := 80;
  12.  
  13.     subtype DEPTH is INTEGER range 1..SCREEN_DEPTH;
  14.     subtype WIDTH is INTEGER range 1..SCREEN_WIDTH;
  15.  
  16.  
  17.   procedure ClearScreen; 
  18.  
  19.   procedure SetCursorAt( A: WIDTH; D : DEPTH);
  20.  
  21. end VT100;    
  22.